home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / terminal3.bas < prev    next >
BASIC Source File  |  1992-05-06  |  477b  |  14 lines
  1. 100   rem Term3.bas by K.L. Colclasure
  2. 110   rem Written 14 Nov 85
  3. 115   rem Set baud rate in Preferences
  4. 120   rem 110 or 300 baud only!
  5. 200   open "o",#1,"ser:": print #1, " ": close #1
  6. 300   get key$: if key$ = "" then 320
  7. 310   gosub 400
  8. 320   gosub 450: goto 300
  9. 400   key% = asc(key$): poke_w &hdff030,key%+256: return
  10. 450   char% = peek_w(&hdff018)
  11. 460   if (char% and 16384) = 0 then return
  12. 470   char$ = chr$(char% and 127): poke &hdff09c,8
  13. 480   print char$;: return
  14.